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LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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L1B_INPUTTXT Ey -1984 02:00: AX-11 Bliss-32 V4.0-7 Page 1/ 

x 14- gep-1984 9:99:08 PIBRAR SRETINEUY TXT 283 31 . (1), 
; 1 1 MODULE Lib_inputtxt ! Get next TEXT input Line 
ta 1 . CANGUAGE, (BL 18832), “ | 
: ? {DENT = 
= @ 0005 ] BEGIN | 
yy 007 1! | 
3 4 $°8 } | aaah tintin aici ietiniain j 
. = ® | 
ci. on B09 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 001 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1 0018 ! it ALL RIGHTS RESERVED. : 
; 14 014 1 i* THIS "othe sa Ag | UNDER A LICENSE AND MAY BE USED AND gh be * | 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Liat AND WITH THE ® 
3 16 8018 1 !® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
$ 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 Bot8 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 1} 84 : * TRANSFERRED. - 
° ;® 
$ 21 $054 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
3 $$ 00 ¢ 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
; $7 ee Z ! is CORPORATION. : 
; 35 0025 1 i* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
$ 6 00 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
oo BIE 
7 Y ® 
: 9 0099 1 i geeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeKeeeeeeeeeeeeeneeeeenenee 
; 0 0030 1 
: sib} it 
: § 0038 : FACILITY: Library command processor 
: 35 0035 ABSTRACT: 
: 35 $037 1} The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
; @ 0038 1} command. It utilizes the Librarian procedure set to perform 
3 4 84 : the actual modifications to the Library. 
; 44 0041 ENVIRONMENT : 
: t3 004 13 VAX native, user mode. 
: 646 Bee 1 i 
3 45 045 1 i- 
a, goug i | 
; 48 0048 AUTHOR: Marty Jack, Benn Schreiber | CREATION DATE: 23-Aug-1979 | 
; 30 0050 MODIFIED BY: | 
; 26 0084 1 v02-007 RPG0047 Bob Grosso 17-Nov-1981 | 
3 5 0053 1: Fix entering of tj text modules to not pad other 
; 2¢ 0035 ! modules with blank Line 
: 56 056 1 i v02-006 RPG0046 Bob Grosso 7-Aug-1981 
ae 0057 1! Lib$gl_ctlmsk now a quadword 


a 
_ 


LAG. ANRUTIXT 


> 3s 2 ss ss Ss SY SS SY 


if: 30-1964 95:98:88 = Haran ’sredinput tis 039, 


v02-005 RPGO0037 Bob Grosso sy-suge19e1 
Permit <> on module name directory specification. 

v02-004 RPG0036 Bob Grosso 18-Jun-1981 
Permit entering of empty text modules. 

v02-003 RPGO035 Bob Grosso 22-Apr-1981 
Record module names for Library Update History 

v02-002 BLS0029 Benn Schreiber 23-Dec-1980 


Convert messages to message compiler 


Page ag 


; 76 073 1 LIBRARY 

: © 074 1 *SYSSLIBRARY:STARLET.L32'; 

; ff 075 1 REQUIRE 

TUS 8 1 "PREFIX'; 

oir. we 60 1 REQUIRE 

; 79 0261 1 "LIBDEF'; 

; 8 49 1 REQUIRE 

; 8 550 1 "LBRDEF'; 

3 86 1141 1 

: 1326 1 EXTERNAL ROUTINE 

; 4 1145 1 et_record, 

; $2 1144 1 _lOg_op,. 

: 1145 1 Lib_log_upd, 

: 87 1138 1 LorSput-record : ADDRESSING_MODE (GENERAL) 
: 88 1147 1 Lor$replace_key : ADDRESSING MODE (GENERALS, ! 
: 689 1148 1 Lor$lookup_Key DDRESSING_MODE (GENERAL), 
; 90 1149 1 Lor$insert_ -key : ADDRESSING_MODE (GENERAL), | 
: 91 1150 1 Lbr$delete_key : ADDRESSING MODE (GENERAL), ! 
: 9 1151 1 Lor$delete_ data : ADDRESSING MODE (GENERALS, ! 
; pt 1136 } Lbr$put_end : ADDRESSING_MODE CCENERAU SS 

MH 95 1154 1 EXTERNAL 

; «496 1155 1 Lor$gl_rmsstv : ADDRESSING_MODE (GENERAL), 
3 97 1156 1 Lib$gl_ 7 size, 

; 1157 1 Lib$gl-ctlmsk : mgs C2). 

; 299 1158 1 Lib$Sgl_libfdb : REF BB OCk, 

: 100 1159 1 Lib$gl_inpfdb : REF BBLOCK: 

: 101 1160 1 Lib$gl_libctl; 

3 iss 1161 1 

3; 1196 1 EXTERNAL LITERAL 

3; ©1046 1163 1 Lib$_inserterr, 

: 105 1164 1 Lib$_deldaterr, 

: 106 1165 1 Lib$_replaced, 

: 107 1166 1 Lib$_inserted, 

: 108 1167 1 Lib$_nomodnam, 

; 109 1168 1 Lib$_modnaming, 

: 110 1169 1 Lib$—dupmod; 

s 111 1170 1 

R ig 1171 1 FORWARD ROUTINE 

ay 1178 1 setmodname; 

: 114 117 1 

.. ee 1174 1 OWN 

: 116 1175 1 bufdesc : BBLOCK Cdsc$c_s abin}. 

3: 117 1176 1 txtrfa : “BBLOCK Crfa$c_Tength) 

: 118 1177 1 modnamdesc : BBLOCK [dsc$c_s_b(n]; 

3 6119 1178 1 

: 120 1179 1 BIND 

3: 121 1180 1 Linelen = bufdesc Cdsc$w_length] : WORD, 

: 122 1181 1 Lineaddr = bufdesc (dsc$a_po nterd: 


Lge gypurta 1bBen-1984 99:99:06 


‘Read next input record 

‘Log insert operation 
‘Record module names for LUH 
‘Write record to Library 


e dat 
if inish eriting to Library 


'RMS STV from Librarian 
'Max Length of keys 


‘Error inserting 
'Delete data error 
‘Module replaced 
'Module inserted 

iNo module name 

‘Module name Length bad 
‘Duplicate module 


! Descriptor for current Line 


! Descriptor for module name 


AX-11 Bliss-32 V 
LIBRAR.SRC INeUTT 
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On 


If replacing, determine if module already exists in library. If it does, 
then replace the module and delete the old data. If it doesn't just 


then call LbrSinser 


insert the module by cans ing lor$replace_key. If inserting the module, 
e ey. 


ee ee 


e; 

F .Lib$Sgt_ctlmsk Clib$v_replace] 
THEN BEGIN 

replacing = pbrStookup hey (Lib$gl 

ey (Ll l 


ibctl, modnamdesc, deltxtrfa); 
ib$gl_ 


| 

| 

eplacing = fals | 
l 

Tbctl, modnamdesc, deltxtrfa, txtrfa); 


status = lLbr$replace 
IF NOT .status 
THEN B 


J 15 
LIB_JNPUTTXT 16-Sep-1984 02:00: AX-11 Bliss-32 V4.0-74 Page 4 L 
Woe 7000 12280 8-138e 95:99:08 LIBRAR.SRC INPUT TET 203351 (3) Vv 
: 124 11 1 GLOBAL ROUTINE Lib_input_txt = ; 
H : 5 8 § BEGIN —_— | : 
; \ ? 1 5 This routine reads TEXT source files and inserts them into the Library. | ; 
: 129 118? § Coca | ; 
; 150 11 3 deltxtrfa : BBLOCK ([rfa$c_length], ; 
s 131 11 replacing, | F 
fe. ¢ 1190 status, : 
3 3 1191 get_status; ; 
: 13s 1198 5 BIND | 
3; 1 1194 Libdesc = Lib$gl_libfdb bene naneese : BBLOCK, | : 
3 13s 1332 inpdesc = LibSgl_inpfdb Cfdb$l_namdesc] : BBLOCK; | ; 
: 139 1197 perform (setmodname ()); : 
Pi ceate ipees™ : 
: 14@ 1200 2! Get first record. If it’s blank, then call Lbr$put_record to ; 
; (16 1201 ! put a module header. Otherwise loop reading whole Tnput file F 
3 Vie 1208 until end of file. : 
: 146 1204 get status = get_record (bufdesc); ' read first record ; 
3 147 1205 F ROT (status =" lbr$put_record (LibSgl_libetl, bufdesc, txtrfa)) ! put a module header and the first 3 
; re 1206 2 THEN SIGNAL (Lib$S_writeerr, 1, libdesc, .status, . Lbr$gl_rmsstv); : 
: 150 1208 : IF .get_status NEQ rms$_eof ! If the file was not empty : 
: 18) 1516 5 THEN BEGIN | 
: 138 1211 WHILE (get_status = get_record (bufdesc)) NEQ rms$_eof DO ! Read in records until end of file 3 
; «4154 \si¢ 4 OT (status = Lbr$put_record (Lib$gl_libctl, bufdesc, txtrfa)) : 
s 155 1213 3 THEN SIGNAL (Lib$_writeerr, 1, lLibdesc, .status, .Lbr$gl_rmsstv); : 
: 156 1214 2 END; : 
: 185 116 3 
; 159 Ii? 2 | Write end of module record 3 
; 161 1219 : if NOT (status = Lbr$put_end (Lib$gl_libctl)) : 
; 16¢ 1660 2 THEN SIGNAL (Lib$_writeerr, 1, Libdesc, .status, .lbr$gl_rmsstv); : 
: 164 1392 5 ; 
3: 165 122 3 
: 166 1224 ‘ 
3: 167 3 5 3 
: 168 1 $ : 
; 169 122 ; 
; 170 1228 : 
s 171 1 $3 

; 176 1230 

eS 1231 

3 176 1536 

: ihe 1234 i EGIN 

: 177 1235 4 SIGNAL (Lib$S_inserterr, 2, modnamdesc, libdesc, .status, .lbr$gl_rmsstv); 

; ie 1 33 4 RETURN Lib$_Tnserterr; 

: 179 1 ; : 

; 180 1238 


END; 
IF .replacing 


FASS 


Ss tt es a tt 


MoPonofononononononofpononononefpororornononr 


MoT) @ 2 
oo WOOOOOOO0OMMOC 

VIS SSLESRANLSSELES 
PPPS Be BP BE PEEP PW 
SOWDNAVSWN —OOWONAULS WN OO” 


THEN IF NOT aay 
THEN 


sTGNAL (Li 
Sa Lib 


END 
ELSE BEGIN 


K 1 

1beSe -1984 
12885-1984 13:98:08 
Lbr$delete_data (Lib$gl_libctl, deltxtrfa)) 


deldaterr, 1, libdesc, .status, .lbr$gl_rmsstv); 
deldaterr; 


AX-11 Bliss-32 V4.0-74 
LIBRAR.SRCJINPUTTXT.B3 


status = a key (LibSgl_lLibctl, modnamdesc, txtrfa); 


IF NOT .statu 
THEN BEGIN 
SIGNAL (1 
RETURN Li 
END; 
END; 
Lib_log_upd ((IF eptanne, 


Ss 
Lib_log_op (CIF .replacing in 4 


RETURN true 
END; 


OFFC 00000 


~ replaced 
e$c_Tnserted), 
b$_feplaced 
b$_inserted), 


'Of Lib_input_txt 


-TITLE 
- IDENT 
»PSECT 
0000 pene: -BLKB 
0008 T -BLKB 
OO0E -BLK 
0010 MODNAMDESC: 
«BLK 


LINELEN= 
LINEADDR= 


- ENTRY 


DO 0000 MOVL 
0 000 MOVL 
0010 MOVAB 


S_inserterr, 2, modnamdesc, libdesc, .status, .lbr$gl_rmsstv); 
_inserterr; 


modnamdesc ); 
modnamdesc, .lib$Sgl_libfdb); 


LIB_INPUTTXT 
\v0%-000\ 


SOWNS ,NOEXE ,2 
8 
6 
2 
8 


eres 


GET RECORD, nt LOG 
uPb, "LBRSPUT. ORECORD 
tBRSREPLA 


LBRSLOOKUP “REY. LBRSINSERT_KEY 


$ ~MODNAMLNG, L1B8$_DUPMOD 
SCODES ,NOWRT,2 


LIB_INPUT_TXT, Save R2,R3,R4,R5,R6,R7,R8,- 


R 
#LIBS_INSERTERR, R11 
#LIBS"DELDATERR, R10 

LBRSPOT_RECORD, “RS 


LAB _ANEUTIXT 


00006 


0001827A 


00006 
0001827A 


000000006 


4C 00006 


67 
CF 


008610D2 


FO 


a 
©oo 


008610D2 


008610D2 


ONO DWDOVWWN1PVIVIOUIN OQWOOVNA UNO VY FMWVIV1IO FP WNOWDOMOFVMOVI YS Pu1orr wn0o—-COMrOooOn 


DEPT NIA NO — COU S$ WHI AMVOWOUIUN ES FOND LUT WN OMVOWOUIMO-—UN—_—C OCOOCM "00" 


OA1 
OA3 


oo 
o>» 
oo 


MOMNVOVV OMIT — "VV DV OMI 7000-90 70-0 MVD OV OMU TO OOO TM OVOM7MO OOOO 
Pe 
~m 


—FOWOO9F909 OOS -DI 9999 GOS "WO “WW -DOOCT 99809 70S fF Oow—rommmmnm 


SQOOooQoQooooooooooooooooQoooooooooooooooooooooooOoOoOooooOoSoQaOOoOOoOO 


Se SO SS SSS SSSSSSSssssssssss 
> 
wr 


SOOooooooooooSo 
GOONOANONOooww 
Su OnVW— nw 


1$: 


5$: 


AX-11 Oi ieee V4.0-74 


LIBRAR.SRCJINPUTTXT.B32;1 

OV LIBSGL_LIBCTL, R8 
MOVAB LIBSSIGNAL, R? 
MOVAB LBRSGL_RMSSTV, R6 
MOV MODNAMDESC, R5 
SUBL 

ADDL3 #16, LIBSGL_LIBFDB, R3 
CALLS #0, SETMODNAME 
BLBS § STATUS, 1$ 

RET 

CLRL —s TXTRFA 

PUSHAB BUFDESC 

CALLS #1, GET_RECORD 

OVL 0; GETZSTATUS 
PUSHAB TXTRFA 

PUSHAB BUFDESC 

PUSHL Re 

CALLS #3, LBRSPUT_RECORD 
MOVL * STATUS 
BLBS STATUS, 2$ 

PUSHL LBRSGL_RMSSTV 
PUSHL STATUS 

PUSHL 

PUSHL 

PUSHL #8786130 

CALLS #5, LIBS$SIGNAL 
CPL GET_STATUS, #98938 
PUSHAB BUFDESC 

CALLS #1, GET_RECORD 
MOVL RO, GET STATUS 
CMPL - GET_STATUS, #98938 
BEQL 4$ 

PUSHAB TXTRFA 

PUSHAB BUFDESC 

PUSHL R 

CALLS #3, LBRSPUT_RECORD 
MOVL 0; STATUS 
BLBS STATUS, 3$ 
PUSHL LBRSGL_RMSSTV 
PUSHL STATUS 
PUSHL 

PUSHL 
PUSHL #8786130 

CALLS #5, LIBS$SIGNAL 
BRB 3$ 
PUSHL R8 

CALLS #1, LBRSPUT_END 
MOVL RO, STATUS 
BLBS STATUS, 5$ 
PUSHL LBRSGL_RMSSTV 
PUSHL STATUS 
PUSHL 
PUSHL 
PUSHL #8786130 

CALLS #5, LIBSSIGNAL 


REPLACING 
#5, LIBSGL_CTLMSK+1, 6$ 


1206 


1212 


1213 


vege 


000000006 


000000006 


000000006 


000000006 


00006 


00006 


54 


=o 
WNOS 


CF 


CF 
50 


; Routine Size: 381 bytes, Routine Base: 


MAME MNMNINNVWE NM DOOWMVUWNVAVOWOUWM PUP (WAV LSMOLOUIMMOWO™N 
WF OA LSM IODA LSVOMOPrs~ 
oO 


as 


SOODWODOMMAOOOCOW MOVOVIVMUEVUVOVIVIY NOMOUVEVMODOUIUMOUNIP PP UIOwvIo 
Sah ed 


O99 "9 “FMF 9 NSO “GMI O9 MNOVVVVIIOMI "OO COV MOOV VT OMI "NMIMMoO "OO OOO TOW 
Foo $9 09909 9 09 SFODOT OTST FFT OOWVVS MNFLODVCV VV VC BOWMWDOOoWI Oo *"OWoW 
SOOOOCOCOCOCOOSOSOSOSSOSOSOSOSOSCSSCSOSSSOSOSSCOSSSSOSOSOSOSCSCOOOOOOOOOOOOOOOOOOe 


OOoemnna 


QOOCGSGGOOOSOOOSOOOSOOOOOSOOOOOOSOOSOSOOOOOOOSOOOOO OOOO OOOOOOOOOOO 


SCODES + 0000 


w$2p-1984 18:88:08 — ECTaraneSRESINEUTTAT B39; 


cane are 
#3, LBRSLOOKUP_KEY 
RO, REPLACING 
TXTRFA 

DELTXTRFA 

a 

R8 

#4, LBRSREPLACE_KEY 
RO, STATUS 

STATUS, 78 
REPLACING, 8$ 

#aM< 5 

#2, LBRSDELETE_DATA 
RO, STATUS 

STATUS, 8$ 
LBRSGL_RMSSTV 
STATUS 

#1 


R10 
#5, LIBSSIGNAL 
R16, RO 


TXTRFA 
R5 


R 
i, LBRSINSERT_KEY 
RO, STATUS 


STATUS, 8$ 
LBRSGL_RMSSTV 
STATUS 

R 

R5 

#2 

R11 

#6, LIBSSIGNAL 
Rif, RO 


R5 

, Crcnaaats 9$ 
2 

10$ 


o 
#2, LIB_LOG_UPD 
L 1686 _C1BFOB 


REPLACING, 11$ 
#LIBS_REPLACED 


les INSERTED 
+e LTB _L0G_OP 


6 


Pe Se Se Se Se Se Se Se Se See Se Se Se Se Se Ge Se Se Fe Fe Ge Ge Ge Se Se Se Ge Fe Se Fe Fe Be Se Fe Se Ge Fe Fe Fe Se Se Fe Fe Fe Fe Se Fe Fe Fe Fe Be Se Se 


MOvoOwe Veo UE ZOV Owe VB VE ZOV Owe VIE vw VE ZOV Owes VEOH KK YE ZOVvOuwvor 
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LIB_INPUTTXT 1b-5e =1984 :00: AX-11 Bliss-32 V4.0-74 Pa o) 
Lhe =h06 1 ~3ep-19 4 95:98:98 LIBRAR. SRC Tiebuy tit 2035: - (4) 
. ROUTINE setmodname = 
BES! 

i 
' 
! 
B 


5 


I 
N 
! This routine extracts fre file name of the current input file 
! and saves it for entering the module name into the Library. 


IND 
modulename 
Libdesc = | 
inpdesc = | 

= 


Libs t inet b Cfdb$l_modnam) : BBLOCK, 
peat ficrae Eigst-nseare : Bato 

n namdesc] : 

~ inplese feeche potncert : VECTOR C,6YTEI; 


modascic : VECTOR Clbr$c_pagesize, BYTE), 


pean Cdsc$w_length] NEQ 0 'Specified by command 
modnamdesc paecdu. length? = ,modulename [ sc$u_lengthd; 
modnamdesc [dsc$a_pointer] = .modulename ([dsc$a_pointer); 


ND 
ELSE BEGIN 
= = «1; 
ECR 1 FROR -inpdesc Cdsc$w_length]-1 TO 0 DO 
IF .inpstring C.i] EQL %C°.* THEN EXITLOOP j = .i; 
DECR i FROM .j-1 TO 0 DO 
BEGIN 


IF (.inpstring C.i] EQL %C'J") OR (.inpstring C.iJ] EQL %C*>") 
pen EXITLOOP k = .i 1; 


MEUM SO OONOUE WN" OOONOUS 


modnamdesc [dsc$w_length] = | = ks 
pognendess dsc$a_pointer] = inpstring C.k); 


podesc te C0] = .modnamdesc Cdsc$w_length); 
CHSMOVE (.modascic 0) -modnamdesc (dsc$a_pointer], modascic ([1]); 
w_length] EQL 


N 
SIGNAL (Lib$_nomodnam, 1, inpdesc); 
RETURN Lib$_nomodnam; 


ND 
E -modnamdesc (Cdsc$w_length) GTRU .Lib$gl_keysize 


-— 
ps 
—_ 


eS ae Sy Cyt ee ey re et ey a Nghe a a 
NOUSWN—O0O@~ 


oo 


_ctlmsk Ct ibsy replace) 
Okup_key (Lib$gl_libctl, modnamdesc, txtrfa) 


(Lib$_dupmod, 3, modascic, inpdesc. Libdesc); 
false; 


ee ee ee ee SS 


Bee ae a ETRY ARES 


PID IPI HMRI HIPPY PIPD LAMB US HIB BINNIE NI NII PIPUPOPIPOPOPOPPUPONONIPNONYD — 
mn oe 

A 

om 

w 

o 

a 

w 

o 


PAPA AAMMIIA 


SSRNSUruUNn 2s 


RETURN true 
ND; 


16 
LAeapputtat 1$-360-1984 02:00:06 yAR=I1 OL ing-32 v4.0-743 Page 10 


OFFC 00000 SETMODNAME : 
WORD 


- os oe tor Save R2,R3 R4 RS RGR7.RB,RI-RIO,Ri | ; 1261 
i 000090006 09 3E 0008 MOVAB LIBSSIGNAL, R10 ; 
é $08 ¢ ee 0 13 MOV =512(SP), SP : 
50 006 CF 18 ¢ 0 1A ADDL3 #24, LIBSGL_INPFDB, RO : 1268 
0006 CF 10 ¢1 0 ADDL3 #16. LIBSGLLIBFDB. R + 1269 
56 006 CF 10 €1 00026 ADDL #6 LIBSGL-INPFDB, R6 : 1270 
Rie gay oan 
69 60 B0 $09 MOVW (RO), MODNAMDESC : 1278 
06 Ad 04 Aad DO 000 MOVL  4(ROS, MODNAMDESC+4 + 1279 
41 11 000 BRB 9$ : 1276 
51 01 CE OO03A 18: MNEGL #1, K + 1282 
22 01 ce 0030 MNEGL #1. J : 
66 3C 0004 MOVZWL (R6), I + 1283 
0C 11 0004 BRB 3$ : 
2€ 04 8640 71 00045 2$ CPB 94 (R6)C1I, #46 + 1285 
52 30 06 9004¢ MOVL I, J F 
03 11 O004F BRB 4$ ; 
F1 20 F4 00051 3$: SOBGEQ I, 2$ : 1283 
50 : DO 00054 4$: MOVL ; I : 1287 
15 11 00057 BRB 4 ; 
5D soaF 04 8640 9 90039 5$ CPB a4(R6)C1), #93 : 1289 
3E 04 8640 1 0006 CMPB a4(R6)C1), #62 ; 
51 01 AO 9 0068 6$ MOVAB 1(RO), K > 1290 
93 11 0006C BRB 4 ; 
8 0 F4 006 7$: SOBGEa I, 5$ : 1287 
69 2 51 a3 9007 8$: SUBW3 4K. J, MODNAMDESC + 1293 
04 Ad 04 8641 9E 00075 MOVAB @4(R6)(K], MODNAMDESC+4 + 1294 
57 69 3¢ 0007B 9S MOVZWL MODNAMDESC, R7 + 1297 
6 7 90 O07E MOV R7, MODASCIC F 
5 6 9A 0 81 MOVZBL MODASCIC, RO : 1298 
01 «AE 046 89 50 28 00084 MOVC3 RO, @MODNAMDESC+4, MODASCIC+1 ; 
dp 3 Dope seh Ths — 
6 b 008 PUSHL R6 : 1301 
gr DD 0 SHL #1 ; 
8 DD 00092 PUSHL R11 : 
A Q FB 0094 CALLS #3, LIBSSIGNAL ; 
0 B B0 aH9h HOVL Rif, RO + 1302 
00006 CF 57 0100098 10$: CMPL 7, LIBSGL_KEYSIZE > 1304 
Hoop gue BY 1300 
3§ BD On PUSHL R F 
08 AE F ie PUSHAB MODASCIC : 
0 DD 000A PUSHL rd ; 


LB. pNpuT tat 


000000006 
0 000000006 
27 0000G CF 
F8 
00006 
000000006 00 
014 
0 
000000006 
6A 
50 
; Routine Size: 240 bytes, Routine Base: S$CODE$ 
261 1318 1 
$06 1319 1 END 
6 1320 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
SOWNS $4 NOVEC, WR 
SCODES 621 NOVEC,NOWR 
Library Statistics 
File Total 
$255$DUA28: CSYSLIBISTARLET.L32;1 9776 


COMMAND QUALI 


1 


11$: 


RE MAWMTMOWFOOUW Ts 
mw 


OOOCWOFOINOOwro ooc 


= 
~m 
tad 


SSSSSSSSSSSSSSSSSsss 


RIOOONLSMO OVI NVWOW 


4 
on 
COOoOooooooooooeooo 


ww 
oO 
=> 


13$: 


+ 0170 


Attributes 


RD ,NOEXE,NOSHR, 
RD , EXE,NOSHR, 


I, 
T, 


25 0 


FIERS 


18-Sep-1984 
oo S0p-1984 


13:38:08 


a MODNAMLNG 
J 


CALLS ETBSS1GNAL 
MOVL #LIBS_MODNAMLNG, RO 
BBS #5, LIBSGL_CTLMSK+1, 12$ 
PUSHAB TXTRFA 
PUSHL R 
PUSHAB L {ssét LIBCTL 
CALLS #3, LBRSLOOKUP_KEY 
BLBC 
PUSHR  #*M<R6,RB> 
PUSHAB MODASCIC 
PUSHL # 
PUSHL #L1IB$_DUPMOD 
CALLS #5, LIBSSIGNAL 
BRB 13§ 
MOVL #1, RO 
RET 
CLRL RO 
RET 
-EXTRN LIBSSIGNAL 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
581 00:01.0 


AX-11 Bliss-32 V4.0-7 
LIBRAR.SRCJINPUTTXT.B 


3:1 


Be Se Se Se Se Ge Se Se Fe Se Se Se Se Se Se Se Se Se Be Be 


1312 


16 
ibe=beon 1$-2¢0-1984 95:98:88 = FMGran saedinbul tat 20491 Page 15 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$: INPUTTXT/OBJ=OBJ$: INPUTTXT MSRC$: INPUTTXT/UPDATE=(ENHS$: INPUTTXT) 
3; Size: 621 + 24 data bytes 
3; Run Time: a 
3; Elapsed Time: 743, 
3 nes/CPU Min: 1 
: Lexemes/CPU-Min: 43161 


3 ry Used: ages 
3 Compilation Complete 
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